home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / misc / amag / sh9301c.lha / Oberon(S.67) / Listing13.mod < prev    next >
Text File  |  1993-01-22  |  388b  |  22 lines
  1. MODULE ArgDemo;
  2. IMPORT
  3.   arg: Arguments, io;
  4. VAR
  5.   i: INTEGER;
  6.   str: ARRAY 80 OF CHAR;
  7. BEGIN
  8.   i := arg.NumArgs();
  9.   WHILE i > 0 DO
  10.     io.WriteInt (i, 2);
  11.     io.WriteString (": ");
  12.     arg.GetArg (i, str);
  13.     io.WriteString (str);
  14.     io.WriteLn;
  15.     DEC (i);
  16.   END;
  17.   io.WriteString ("Das Programm heißt: ");
  18.   arg.GetArg (0, str);
  19.   io.WriteString (str);
  20.   io.WriteLn;
  21. END ArgDemo.
  22.